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How to build a Shiny App 
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Code and slides at: 
bit.ly/shiny-quickstart-1 








How to start with Shiny 





ins & mesa Chustorirag 


“1. How to build a Shiny app 


2. How to customize reactions 


HTML Css 


EE 3. How to customize appearance 








Shiny Showcase 


www.rstudio.com/products/ 
shiny/shiny-user-showcase/ 
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Shiny Apps for the Enterprise 
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Shiny Dashboard Demo Location tracker Download monitor Supply and Demand 
A dashboard built with Track locations over time Streaming download rates Forecast demand to plan 
Shiny. with streaming data. visualized as a bubble chart. resource allocation. 


Industry Specific Shiny Apps 


Emergency Department Simulation Ebola Model 


- we Cares edu 
DO Wee 
Welcome to the Onine ED Simulator! 


Wat We Do 


| Mii = E 

k 
Economic Dashboard ER Optimization CDC Disease Monitor Ebola Model 
Economic forecasting with An app that models patient Alert thresholds and An epidemiological 
macroeconomic indicators. flow. automatic weekly updates. simulation. 


Pharmacometrics: some Shiny applications 
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More at 
www.rstudio.com/resources/training/online-learning/ 


Understand the 
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architecture 











Every Shiny app is maintained by a computer running R 
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Every Shiny app is maintained by a computer running R 


r$ Ñ means cuve ny a 


Iris k-means clustering 








Iris k-means clustering 


X Variable 
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Server Instructions User Interface (Ul) 











App template 


The snortest viable shiny app 





ul <- fluidPage() 


server <- function(input, output) {} 


shinyApp(ul = ui, server = server) 





e-e ~/Desktop/my-shiny - RStudio 
IES de 
O ui.R © 1 server.R Environment 


Q s~ C Reload App +» “= + 


1 
2 # This is the server logic for a Shiny web application. 
3 # You can find out more about building applications with 


Shiny here: 
4 # 
5 # http://shiny.rstudio.com 
o 7 
f 
8 librarylshiny)| 
9 
10- shinyServer(function(input, output) { 
11 
12- output$distPlot <- renderPlot({ 
13 
14 # generate bins based on input$bins from ui.R 
15 x <- faithfull, 2] 


8:15 (Top Level) 


Console 


> shiny: :runApp() 


Listening on http://127.0.0.1:6314 





History 


gU Packages 





Frequency 


N 


Old Faithful Geyser Data 


Number of bins: 


1 


Close an app 


Help Viewer 





Histogram of x 


90 





R my-shiny + 


50 


LR Still 





Add elements to your app as arguments to 
f LuidPage ) 


"Hello World 





Build your app around 


Inputs and 
Outputs 
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Build your app around inputs and outputs 


0090 Iris k-means clustering x Garrett 


C fi 127.0.0.1:3251 Q KN = 


Iris k-means clustering 





Sepal.Length 


LR Still 





build your app around inputs and outputs 


o “e Iris k-means clustering x Garrett 


C fi 127.0.0.1:3251 A» = 


Iris k-means clustering 





© 
X Variable 
Sepal.Length v = 
O 
Y Variable 
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. f e 
Sepal.Width = 
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Es 
Cluster count D > 
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9 
CN 
= © 
4.5 5.0 5.5 6.0 6.5 7.0 7.5 8.0 





Add elements to your app as arguments to 
fLuidPage() 


ul <- fluidPageC 
# *Input() functions, 
# *Output() functions 


) 








Create an input with an *Input() function. 


SliderInput(inputId = "num", 
Label = "Choose a number", 
value = 25, min = 1, max = 100) 





<div class=" form-group shiny-input-container'> 
«Label class="control-label” for="num">Choose a number</label> 
«input class-"js-range-slider" id-"num" data-min- 1" data-max- 100" 
data-from-" 25" data-step= 1" data-grid- true" data-grid-num- 9.9" 
data-grid-snap-" "false" data-prettify-separator="," data-keyboard-" true" 
data-keyboard-step-z'1.01010101010101" /» 
«/div» 


Create an input with an input function. 














library(shiny) 
ui <- fluidPage( 


x) | Open in Browser X - Publish (a 


server <- function(input, output) {} 


shinyApp(server = server, ui = ui) 





Create an input with an input function. 





4 | Open in Browser Publish 





Choose a number 


SliderInput(inputId = "num", 25 100 
label = "Choose a number", — 
value = 25, min = 1, max = 100) 








Buttons Single checkbox Checkbox group Date input 








—" Y Choice A Y Choice 1 2014-01-01 
Choice 2 

Choice 3 
actionButton() checkboxInput () checkboxGroupInput() dateInput() 
submitButton() 
Date range File input Numeric input Password Input 

2014-01-24 tọ 2014-01-24 Choose iles) NO me chosen 1 Jj IRI 
dateRangeInput() fileInput() numericInput() passwordInput() 





Sliders 





Select box 





Radio buttons Text input 


(e) Choice 1 Choice 1 
Choice 2 
Choice 3 


radioButtons() selectInput() sliderInput() textInput() 


<> 


Enter text... 








Syntax 





Choose a number 








1 11 21 31 41 51 61 /1 81 91 100 


sliderInput(inputId = "num", Label = "Choose a number", ..) 


input name input specific 


(for Internal use) arguments 





2sliderInput 








LR Still 





build your app around inputs and outputs 


o “e Iris k-means clustering x Garrett 
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Iris k-means clustering 
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Function Inserts 








dataTableOutput() an interactive table 
ntmlOutput () raw HIML 
imageOutput() image 
plotOutput() plot 
tableOutput() table 
textOutput() text 

uiOutput() a Shiny Ul element 


verbatimIextOutput() text 





To display output, add it to fluidPage() with an 
*Output() function 


plotOutput( hist") 


the type of output name to give to the 
to display output object 





library(shiny) 


ui <- fluidPage( 
sliderInput(inputId = "num", 
label = "Choose a number", 
value = 25, min = 1, max = 100), 
plotOutput ("hist") 


Comma between 


arguments 





server <- function(input, output) {} 


shinyApp(ui = ui, server = server) 





library(shiny) 7 9 


Open in Browser . Publish 


Choose a number 


1 25 100 


ui <- fluidPage( 
sliderInput(inputId = "num", 
Label = "Choose a number", 
value = 25, min = 1, max = 100), 
plotOutput("hist") 








server <- function(input, output) {} 


shinyApp(ui = ui, server = server) 
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5 Open in Browser > Publish (G 





library(shiny) 





Choose a number 


1 25 100 


ui <- fluidPage( 
sliderInput(inputId = "num", 
label = "Choose a number", 
value = 25, min = 1, max = 100), 
plotOutput ("hist") 





* Output() adds a space in 
the ul for an R object. 


server <- function(input, output) {} 


shinyApp(ui = ui, server = server) 





© | Open in Browser » Publish © 





library(shiny) 





Choose a number 





ui <- fluidPage( 
sliderInput(inputld = "num", CN 
label = "Choose a number", in sn 4 M » 
value = 25, min = 1, max = 100), 
p Lot Output ("hist") 
) 


100 





* Output() adds a space in 


server <- function(input, output) {} the ui for an R object. 


shinyApp(ui = ul, server = se rver) You must ouild the object 
in the server function 








Recap 


nina Begin each app with the template 


shinyApp(ul = ui, server = server) 


arrett 





Add elements as arguments to fluidPage() 











Create reactive inputs with an *Input(} 
function 


Display reactive results with an *Output() 
function 


Assemble outputs from inputs in the 
server function 





Tell the 


how to assemble 
inputs into outputs 











Use 3 rules to write the server function 


server <- function(input, output) { 








Save objects to display to output$ 


server <- function(input, output) 4 





output$hist <- 








Save objects to display to output$ 





output$hist 


plotOutput( hist”) 











Build objects to display with render*() 


server <- function(input, output) d 
output$hist «- renderPlot({ 





$) 


LR ES 


Use the render*() function that creates the type of 
output you wish to make. 


function creates 








(from a data frame, matrix, or 


re N de rDa t ala D Il e ( ) An interactive table other table-like structure) 


renderImage ( ) An image (saved as a link to a source file) 
renderPlot() A plot 

renderPrint() A code block of printed output 
renderTable() A table Siner tabie-ike structure) — 

renderText() A character string 


renderUI() a Shiny Ul element 





render () 


Bullas reactive output to display in Ul 


renderPlot({ hist(rnorm(100)) +) 


type of object to code block that builds 
pulla the object 











Build objects to display with render*() 


server <- function(input, output) d 
output$hist «- renderPlot({ 
hist(rnorm(100 )) 


$) 











Build objects to display with render*() 


server <- function(input, output) 4 
output$hist «- renderPlot({ 
title «- "100 random normal values" 
hnist(rnorm(100), main = title) 


$) 








Access input values with input$ 


input $num 








Access input values with input$ 


sliderInput(inputld = "num" ,...) 


input$num 











input values 


The input value changes whenever a user 


changes the input. 
= input$num = 25 
Choose a number 


| E) = input$num 
| | 


Choose a number 


50 


Choose a number 


| = input$num 
‘Mme “I 


(5 











input values 


The input value changes whenever a user 


changes the input. 
= input$num = 25 


= input$num = 50 






Choose a number 


Choose a number 


| = input$num = 





C» 


LR Still 








Reactivity 101 


Reactivity automatically occurs whenever you use an 
Input value to render an output object 


output$hist renderPlot({ 
input$num 





$) 





@ 00 
¿2 | Open in Browser 





—» Publish Cc 





input $num 


Choose a number 





Histogram of rnorm(input$num) 


hist(rnorm(input$num)) LI 


Frequency 


1 


O 





$) 2 4 0 2 


rnorm(input$num) 








l À | Open in Browser  «!> Publish (G 
input$num 
| Choose a number 


Histogram of rnorm(input$num) 









hist(rnorm(input$num)) c EN mu 





j ) -3 -2 -1 0 1 2 3 


rnorm(input$num) 











Recap: Server 


|| o Use the server function to assemble 
inputs into outputs. Follow 3 rules: 








output$hist <- 1. Save the output that you build to output$ 


renderPlot (1 


renier) 2. Build the output with a render*() function 





input$num 3. Access input values with input$ 


bal 


Create reactivity by using Inputs to build 
rendered Outputs 














Every Shiny app is maintained by a computer running R 








Every Shiny app is maintained by a computer running R 


Iris k-means clustering 


Sepal.Length 


Sepal.Width 





Sepal.Length 








How to save your app 


One directory with every file the app neeas: 
* app.H (your script which ends with a call to shinyApp() 
* datasets, Images, css, helper scripts, etc. 


900 3 App- 1 | 
u = Selle Es mue. a 
* app.R 











Two file apps 


ul <- fluidPage( f Lui dPage( 
sliderInput(inputId = "num", sliderInput(inputld = “num”, 
label = "Choose a number", = label = “Choose a number", 
value = 25, min = 1, max = 100), value = 25, min = 1, max = 100), 
plotOutput("hist") plotOutput( hist") 
) ) 


server <- function(input, output) 1 
output$hist «- renderPlot({ 


histCrnormCinput$num) 7 functionCinput, output) { 
1) output$hist <- renderPlot({ 
} = hist(rnorm(input$num)) 
$) 


shinyApp(ui = ul, server = server) } 








Two file apps 


One directory with two files: 
° server.H * UIR 








Launch an app 









000 -/Desktop/my-shiny - RStudio 
Ql- æ- 
O ui.R © 1 server.R Environment History 
AN E R A - 
+ Z P Run App Files Plots Packages Help Viewer 
1 


2 # This is the server Logic for a Shiny web application. 
3 # You can find out more about building applications with 


Shiny here: 
4 # 
5 # http://shiny.rstudio.com 
o # 
H 
8 library(shiny) 
9 
19 - shinyServer(function(input, output) { 
11 
12- output$distPlot <- renderPlot({ 
13 
14 # generate bins based on input$bins from ui.R 
15 x <- faithfull, 2! 
8:15 (Top Level) R Script 
Console 


> 





A. my-shiny < 








Display options 






600 ^[Dropbox (RStudio)/RStudio/rst 
Vi 2- Publish 
(3 1 ui.R 
Q foe | b Run App 
> P ut.R Run in Window 
Y Run in Viewer Pane 
3 shinyUI(fluidPage( 
4 Run External 
zi titlePanel("What's in a name?"), 
6 
f sidebarLayout( 
8 sidebarPanel( 
a teytTnnıt/"nnme" "Names" value — "Garrett" 
LL (Top Level) : R Script : 


Console 


> shiny::runApp('example-apps/finished-apps/2-names-app ' 7 
Listening on http://127.0.0.1:7039 
> shiny::runAppC' example-apps/finished-apps/2-names-app ' ) 


Listening on http: //127.0.0.1:7039 


SJ uu x us um Aa 


training/interactive-reports - RStudio 


Environment History 


—* LJ Import Dataset» Clear 
5 Global Environment» 


Data 

^ data 134 obs. of 5 variables 

O df 2747 obs. of 13 variables 
0 df1 33 obs. of 12 variables 
Ogarrett 171 obs. of 5 variables 


Files Plots Packages Help Viewer 





È interactive-reports + 


List + 














Shinyapps.io 

A server maintained by RStudio 
* free 

* easy to use 


* Secure 
* Scalable 


Iris K-means clustering 


Sepal.Length 


Sepal.Width 





Sepal.Length 


PROPERTY OF 


LR Belle 





Shinyapps.io 





000 Iris k-means clustering 


[RE 


C fi 127.0.0.1:3251 Q m 


Iris K-means clustering 


X Variable 


Sepal.Length - S 


Y Variable 


Sepal.Width 


Cluster count 


Sepal.Width 


3 





Sepal.Length 
s a n 
s 


RETIE tt 
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Getting started guide 


shinv.rstudio.com/articles/shinvapps.hntmi 


0050 Shiny - Getting started w x Garrett 


€ C fi shiny.rstudio.com/articles/shinyapps.htmi 


Sh ny by RStudio 





— Getting started with shinyapps.io 


BY: ANDY KIPP 
ARTICLES 


Shinyapps.io is a platform as a service (PaaS) for hosting Shiny web apps (applications). This guide will 


GALLERY show you how to create a shinyapps.io account and deploy your first application to the cloud. 
REFERENCE Before you get started with shinyapps.io, you will need: 
DEPLOY e AnR development environment, such as the RStudio IDE 


e (for Windows users only) RTools for building packages 
MELP e (for Mac users only) XCode Command Line Tools for building packages 
e (for Linux users only) GCC 
e Thedevtools R package (version 1.4 or later) 
e The latest version of the shinyapps R package 


How to install devtools 


Shinyapps.io uses the latest improvements to the devtools package. To use shinyapps.io, you must 
update devtools to version 1.4 or later. To install devtools from CRAN, run the code below, Then 
restart your R session. 


install.packages('devtools') 





FREE STANDARD PROFESSIONAL 


5 Applications Unlimited Applications Unlimited Applications 
25 Active Hours 1000 Active Hours 5000 Active Hours 
© Community Support Q Authentication Q Authentication 
©  RStudio Branding © Multiple Instances © Multiple Users 
© Email Support © Multiple Instances 


© Custom Domains* 


© Email Support 











www.rstudio.com/products/shiny/shiny-server/ 


A back end program that builds a linux web 
server specifically designed to host Shiny apps. 








Shiny Server Pro 


www.rstudio.com/products/shiny/shiny-server/ 


*V Secure access - LDAP, GoogleAuth, SSL, and more 
% Performance - fine tune at app and server level 











Y Management - monitor ana control resource use 
Y Support - direct priority support 


LALA 45 day 
s evaluation 
CRE free trial 


Let's get started. 





Password 
Login 








Recap: Sharing 


STE Save your app in its own directory as 























app.R, or ul.R and server.R 





Host apps at shinyapps.io by: 





1. Sign up for a free shinyapps.io account 





Library (shinyapps) 


2. Install the shinyapps package 


Build your own server with Shiny Server 
or Shiny Server Pro 











ui <- fluidPage() 
server «- function(input, output) {} 
shinyApp(ul = ui, server = server) 





*Input() 

















PR 
Sepal.Length 


Output ( ) 


build an app 





You now how to 


u œ 

















shinyapps.io 





output$ 
(Td 
render ( ) 
input$ ee nput$num) ) 
» 
Create interactions ohare your apps 





How to start with Shiny 





2. How to customize reactions 


HTML 


EE 3. How to customize appearance 





